home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / prime_tests / primes3000.bas < prev    next >
BASIC Source File  |  1999-07-24  |  392b  |  23 lines
  1. ' This program finds the prime-numbers from 2 to 3000.
  2. ' It has been tested in Cursor and HiSoft BASICs.
  3.  
  4.  DEFINT a-z
  5.  
  6.  SCREEN 2,640,200,1,2
  7.  PRINT "prime numbers from 2 to 3000:"
  8.  
  9.  BeginTime! = TIMER
  10.  
  11.  FOR a = 2 TO 3000
  12.    FOR b = 3 TO a-1
  13.      IF a MOD b = 0 THEN NotPrim
  14.    NEXT b
  15.    PRINT a
  16. NotPrim:
  17.  NEXT a
  18.  
  19.  PRINT "time needed:"+STR$(TIMER-BeginTime!)+" s."
  20.  
  21.  WHILE INKEY$ = "" : WEND
  22.  
  23.